High compression audio files with high quality sound.
How to use in VB 5.0 !
1) Insert OCX in VB under PROJECT / COMPONENTS and a factory symbol apears in the components window
2) For the first step you can use a COMMAND button with the few lines
Private Sub Command1_Click() Dim err
ACM.SetInputFile ("c:\PCM.wav") ' 44khz/16Bit/stereo ACM.SetOutputFile ("c:\ADPCM.wav")
'find ADPCM codec For i = 1 To ACM.GetNumACMs If ACM.GetNameACM(i) = "Microsoft IMA ADPCM CODEC" Then ACM.SelectACMDriver (i) Next i
err = ACM.SetFormatTags(2) ' from Wave to ADPCM
err = ACM.SetFormat(8) ' 44khz/4Bit/stereo
err = ACM.Convert End Sub
4) That's all ! Now you can use all Windows ACM compressor in your program.
5) The OCX in the root work with all Windows 95 and NT 4 version. For the ActiveX version you need a Windows update ( MFC 4.2 ).
You find a demo source for Visual Basic 5.0 SP3 in the directory VB. |